Run Magazine ReRun 1989 September & October/rerun-1989-09-10.d64/run's checksum

Commodore BASIC | 1989-01-01 | 1.0 KB | 21 lines

10 rem run's checksum 64/128 - bob kodadek
20 mo=128:sa=3328:if peek(40960)then mo=64:sa=49152
30 for i=0to169:readb:ck=ck+b:poke sa+i,b:next
40 ifck<>20651 thenprint"data error!":end
50 pokesa+110,240:pokesa+111,38:pokesa+140,234
60 printchr$(147)str$(mo)" run checksum":print
70 print"to toggle on or off, sys"sa:if mo=128 then 100
80 pokesa+13,124:pokesa+15,165:pokesa+25,124:pokesa+26,165
90 pokesa+39,20:pokesa+41,21:pokesa+123,205:pokesa+124,189
100 pokesa+4,int(sa/256):sys sa:new
110 data 120,162,24,160,13,173,4,3,201,24,208,4,162,13,160,67,142,4,3,140
120 data 5,3,88,96,32,13,67,152,72,169,0,141,0,255,133,176,133,180,166,22
130 data 164,23,134,167,132,168,170,189,0,2,240,58,201,48,144,7,201,58,176
140 data 3,232,208,240,189,0,2,240,42,201,32,208,4,164,180,240,31,201,34
150 data 208,6,165,180,73,1,133,180,230,176,164,176,165,167,24,125,0,2,133
160 data 167,165,168,105,0,133,168,136,208,239,232,208,209,169,42,32,210
170 data 255,165,167,69,168,170,169,0,32,50,142,169,32,32,210,255,32,210
180 data 255,169,13,32,210,255,104,168,96,104,170,24,32,240,255,104,168
190 data 96,56,32,240,255,138,72,152,72,24,162,0,160,0,32,240,255,169
200 data 42,208,198